home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / misc / man35.lha / Man3.5 / Install < prev    next >
Text File  |  1994-11-10  |  3KB  |  148 lines
  1. ;  *** Man installation scipt ***
  2.  
  3. (set #install-msg
  4. (cat "\n\nMan installation script.\n"
  5.      "This script installs the MAN commodity on your Amiga.\n\n"
  6.      "Read the documentation for\n"
  7.      "more information on the distribution\n"
  8.      "and commercial usage of Man.\n\n"
  9.      "Man © 1991-1994 Markus Hillenbrand\n"
  10.      "All rights reserved."
  11. ))
  12.  
  13. (set #bad-kick         "You must be using Kickstart 2.04 to install using this script!")
  14. (set #copying-reqtools "Copying reqtools.library to Libs:...")
  15.  
  16. (message #install-msg)
  17. (welcome "Welcome to the Man installation!")
  18.  
  19. (if (< (/ (getversion) 65536) 37)
  20. (
  21.     (abort #bad-kick)
  22. ))    
  23.  
  24. (if (exists "S:Man.cfg")
  25. (
  26.     (delete "S:Man.cfg")
  27. ))
  28.  
  29. (set reqtoolslib "libs20/reqtools.library")
  30. (set catalogdir  "catalogs/")
  31.  
  32. (copylib
  33.         (prompt "\n" #copying-reqtools)
  34.         (help @copylib-help)
  35.         (source reqtoolslib)
  36.         (dest "Libs:")
  37.         (confirm)
  38. ) 
  39.  
  40. (if (exists "SYS:WBStartUp/Man")
  41. (
  42.     (copylib (prompt "\nInstalling Man-Commodity\n")
  43.                   (help @copylib-help)
  44.                  (source "Man")
  45.               (dest "SYS:WBStartUp")
  46.               (confirm)
  47.     )
  48. ))
  49.  
  50. (set #which-language "\nWhich languages should be installed?") 
  51. (set old_level @user-level)
  52. (set default_lang 2)
  53.  
  54. (if (exists "SYS:Locale")
  55. (
  56.     (if (exists "LOCALE:")
  57.     (
  58.         (user 1)
  59.         (set lang (askoptions (prompt #which-language)
  60.                                      (help     #which-language-help)
  61.                                      (choices
  62.                                          "Deutsch"
  63.                                          "English"
  64.                                          "Svenska")
  65.                                    (default default_lang)
  66.                      )
  67.         )
  68.         (user old_level)
  69.  
  70.         (set n 0)
  71.         (while (set language (select n
  72.                                         "deutsch"
  73.                                         "english"
  74.                                         "svenska"
  75.                                         ""))
  76.         (
  77.             (if (IN lang n)
  78.             (
  79.                 (if (<> 2 n)
  80.                 (
  81.                     (makedir (cat "LOCALE:Catalogs/" language))
  82.                     (copyfiles (source (cat catalogdir language))
  83.                                   (dest (cat "LOCALE:Catalogs/" language))
  84.                                   (all)
  85.                     )
  86.                 ))
  87.             ))
  88.             (set n (+ n 1))
  89.         ))
  90.     ))
  91. ))
  92.  
  93. (set #which-manpages "\nWhich man pages should be installed?") 
  94. (set #which-manhelp  "Specify the useful man pages")
  95. (set old_level @user-level)
  96. (set manpagedir "Pages/")
  97.  
  98. (
  99.    ;get destination dir for ManPages
  100.    (set mydest
  101.         (askdir
  102.                (prompt "Select the directory where you want to put the man pages:")
  103.                (help   "The directory where you store the man pages should be on a "
  104.                        "hard drive. A directory will NOT be created!!\n\n"
  105.                )
  106.                (default "Work:")
  107.                (disk)
  108.         )
  109.    )
  110.  
  111.     (user 1)
  112.     (set lang (askoptions (prompt #which-manpages)
  113.                                  (help     #which-manhelp)
  114.                                  (choices
  115.                                      "Man"
  116.                                      "Dir"
  117.                                      "DT2IFF"
  118.                                      "List"
  119.                                      "Why")
  120.                  )
  121.     )
  122.     (user old_level)
  123.  
  124.     (set n 0)
  125.     (while (set language (select n
  126.                                     "Man.man"
  127.                                     "Dir.man"
  128.                                     "DT2IFF.man"
  129.                                     "List.man"
  130.                                     "Why.man"
  131.                                     ""))
  132.     (
  133.         (if (IN lang n)
  134.         (
  135.             (if (<> 200 n)
  136.             (
  137.                 (makedir (cat "LOCALE:Catalogs/" language))
  138.                 (copyfiles (source (cat manpagedir language))
  139.                               (dest mydest)
  140.                               (all)
  141.                 )
  142.             ))
  143.         ))
  144.         (set n (+ n 1))
  145.     ))
  146. )
  147.  
  148.